source dom.tcl 

InitParse
source [lindex $argv 0]
dom_flush [lindex $argv 1]